home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 015 / fx80.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  3.1 KB  |  84 lines
  1. 10  'FX80 Printer set up
  2. 20  'Written by Mike Haefner, (213) 973-8840
  3. 30  '
  4. 40  SCREEN 0:WIDTH 80:KEY OFF
  5. 50  ON ERROR GOTO 790:GOTO 80
  6. 60  '
  7. 70  '
  8. 80  ' ****** MAIN PROGRAM ******
  9. 90  '
  10. 100  DEF SEG=&H40:POKE &H17,PEEK(&H17) OR 64:DEF SEG 'Caps lock on
  11. 110  CLS:LOCATE  1,25:PRINT "<<<<<< PRINTER SET-UP >>>>>>
  12. 120  LOCATE  5,5:PRINT "A).   Normal"
  13. 130  LOCATE   ,5:PRINT "B).   Elite"
  14. 140  LOCATE   ,5:PRINT "C).   Condensed"
  15. 150  LOCATE   ,5:PRINT "D).   Emphasized"
  16. 160  LOCATE   ,5:PRINT "E).   Double-strike, Normal"
  17. 170  LOCATE   ,5:PRINT "F).   Double-strike, Elite"
  18. 180  LOCATE   ,5:PRINT "G).   Double-strike, Condensed"
  19. 190  LOCATE   ,5:PRINT "H).   Double-strike, Emphasized"
  20. 200  LOCATE  5,40:PRINT "I).   Enlarged, Normal"
  21. 210  LOCATE   ,40:PRINT "J).   Enlarged, Elite"
  22. 220  LOCATE   ,40:PRINT "K).   Enlarged, Condensed"
  23. 230  LOCATE   ,40:PRINT "L).   Enlarged, Emphasized"
  24. 240  LOCATE   ,40:PRINT "M).   Enlarged, Double-strike, Normal"
  25. 250  LOCATE   ,40:PRINT "N).   Enlarged, Double-strike, Elite"
  26. 260  LOCATE   ,40:PRINT "O).   Enlarged, Double-strike, Condensed"
  27. 270  LOCATE   ,40:PRINT "P).   Enlarged, Double-strike, Emphasized"
  28. 280  LPRINT CHR$(24);
  29. 290  LOCATE 15,1:PRINT SPACE$(79);:LOCATE 15,33:PRINT "SELECT A-P ? ";
  30. 300  X$=INPUT$(1):PRINT X$;
  31. 310  IF ASC(X$)<65 OR ASC(X$)>80 THEN BEEP:GOTO 290
  32. 320  IF X$="A" THEN N=0:S1A$="Normal":S1B=80
  33. 330  IF X$="B" THEN N=1:S1A$="Elite":S1B=96
  34. 340  IF X$="C" THEN N=4:S1A$="Condensed":S1B=137
  35. 350  IF X$="D" THEN N=8:S1A$="Emphasized":S1B=80
  36. 360  IF X$="E" THEN N=16:S1A$="Double-strike, Normal":S1B=80
  37. 370  IF X$="F" THEN N=17:S1A$="Double-strike, Elite":S1B=96
  38. 380  IF X$="G" THEN N=20:S1A$="Double-strike, Condensed":S1B=137
  39. 390  IF X$="H" THEN N=24:S1A$="Double-strike, Emphasized":S1B=80
  40. 400  IF X$="I" THEN N=32:S1A$="Enlarged, Normal":S1B=40
  41. 410  IF X$="J" THEN N=33:S1A$="Enlarged, Elite":S1B=48
  42. 420  IF X$="K" THEN N=36:S1A$="Enlarged, Condensed":S1B=68
  43. 430  IF X$="L" THEN N=40:S1A$="Enlarged, Emphasized":S1B=40
  44. 440  IF X$="M" THEN N=48:S1A$="Enlarged, Double-strike, Normal":S1B=40
  45. 450  IF X$="N" THEN N=49:S1A$="Enlarged, Double-strike, Elite":S1B=48
  46. 460  IF X$="O" THEN N=52:S1A$="Enlarged, Double-strike, Condensed":S1B=68
  47. 470  IF X$="P" THEN N=56:S1A$="Enlarged, Double-strike, Emphasized":S1B=40
  48. 480  LPRINT CHR$(27);"@";CHR$(27);"!";CHR$(N);
  49. 490  LOCATE 15,1:PRINT SPACE$(79);
  50. 500  LOCATE 15,33:PRINT "CHARACTER SET"
  51. 510  LOCATE 18,1:PRINT SPACE$(79);:LOCATE 18,28:                                     PRINT"Standard (S), Italic (I) ? ";
  52. 520  X$=INPUT$(1):PRINT X$;
  53. 530  IF X$<>"S" AND X$<>"I" THEN BEEP:GOTO 510
  54. 540  LOCATE 15,1:PRINT SPACE$(79);
  55. 550  LOCATE 18,1:PRINT SPACE$(79);
  56. 560  IF X$="S" THEN LPRINT CHR$(27);"5";:S2$="Standard"
  57. 570  IF X$="I" THEN LPRINT CHR$(27);"4";:S2$="Italic"
  58. 580  LOCATE 15,32:INPUT"Left Margin ? ",M$
  59. 590  LOCATE 15,1:PRINT SPACE$(79);
  60. 600  LM=VAL(M$):TW=S1B-LM
  61. 610  LPRINT CHR$(27);"l";CHR$(LM);
  62. 620  LOCATE 15,32:INPUT"Skip Over ? ",M$
  63. 630  LOCATE 15,1:PRINT SPACE$(79);
  64. 640  SO=VAL(M$)
  65. 650  LPRINT CHR$(27);"N";CHR$(SO+5);
  66. 660  FOR I=5 TO 17:LOCATE I,1:PRINT SPACE$(80);:NEXT
  67. 670  LPRINT CHR$(24);
  68. 680  LOCATE 5,31:PRINT "CURRENT SETTINGS"
  69. 690  LOCATE 9,26:PRINT "   PRINT MODE = ";S1A$
  70. 700  LOCATE  ,26:PRINT "CHARACTER SET = ";S2$
  71. 710  LOCATE  ,26:PRINT "  LEFT MARGIN = ";:IF LM=0 THEN PRINT "Not set": ELSE        PRINT LM
  72. 720  LOCATE  ,26:PRINT "    SKIP OVER = ";:IF SO=0 THEN PRINT "Not set": ELSE        PRINT SO
  73. 730  LOCATE  ,26:PRINT " COLUMN WIDTH = ";S1B-LM
  74. 740  LOCATE 16,1:PRINT SPACE$(79);:LOCATE 16,28:PRINT "Restart (R), End (E) ";
  75. 750  COLOR 23,0:PRINT "? ";:COLOR 7,0:X$=INPUT$(1)
  76. 760  IF X$<>"R" AND X$<>"E" THEN BEEP:GOTO 740
  77. 770  IF X$="R" THEN GOTO 80
  78. 780  IF X$="E" THEN CLS:END
  79. 790  IF ERR=24 THEN LOCATE 25,30:PRINT "PRINTER NOT ON-LINE";
  80. 800  IF ERR=25 THEN LOCATE 25,35:PRINT "PRINTER OFF";
  81. 810  IF ERR=27 THEN LOCATE 25,29:PRINT "PRINTER OUT OF PAPER";
  82. 820  BEEP:FOR D=1 TO 1000:NEXT D
  83. 830  LOCATE 25,1:PRINT SPACE$(79);:RESUME
  84.